10 PRINTCHR$(14):POKE53281,0:POKE53280,11:POKE646,1
15 DN$="[196][197][195][197][205][194][197][210] [196][201][211][203]"
25 REM INPUT"DATE: ";DA$
30 REM INPUT"DISK NAME: ";DN$
35 REM INPUT"DISK ID: ";ID$
40 REM INPUT"CATALOG NUMBER: ";CA$
50 REM INPUT"COPY NUMBER: ";CO$
60 SP=(20-LEN(DN$))/2
90 OPEN4,4,7
95 REM PRINT#4,"  "
100 PRINT#4,"        [195]OMMODORE [213]SERS OF [206]ORMAN     "
105 REM PRINT#4,"  "
107 PRINT#4,"  "
110 PRINT#4,CHR$(14):PRINT#4,SPC(SP)DN$:PRINT#4,CHR$(20)
140 REM PRINT#4,"  "
150 PRINT#4,"  "
155 PRINT#4,"  12/7/83                        [201][196]: [205]3"
156 PRINT#4,"           "
157 PRINT#4,"           "
160 PRINT#4:CLOSE4
170 PRINT"AGAIN?"
180 GETII$:IFII$="Y"THEN90
190 IFII$="N"THENEND
200 GOTO180
400 OPEN4,4,7
405 FORX=1TO10:PRINT#4,X:NEXTX
406 PRINT#4:CLOSE4